home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 48 / MOBICLIC 48.ISO / pc / DATA / COMMUNS / M_BLUE_WINDOW.dir / 00045_Script_GESTION_BARRE < prev    next >
Text File  |  2002-07-23  |  1KB  |  44 lines
  1. global gL_MagicWindoz_lok
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur, memRect
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8. end
  9. ----------------------------------- 
  10. on mouseEnter
  11.   if the pauseState = 1 then exit
  12.   cursor 260
  13.   updateStage
  14. end
  15. ---------------------------------
  16. on mouseLeave
  17.   if the pauseState = 1 then exit
  18.   cursor -1
  19. end
  20. ----------------------------------- 
  21. on mouseDown
  22.   if the pauseState = 1 then exit
  23.   memMouseLoc = the mouseLoc
  24.   memRect = gL_MagicWindoz_lok[4]
  25.   repeat while the mouseDown
  26.     zepoint = the mouseLoc
  27.     delta = zepoint - memMouseLoc
  28.     if delta <> point(0,0) then
  29.       delta_rect = rect(delta[1],delta[2],delta[1],delta[2])
  30.       memRect = memRect + delta_rect
  31.       memMouseLoc = zepoint
  32.     end if
  33.   end repeat
  34.   cursor 290
  35. end
  36. ----------------------------------- 
  37. on mouseUp
  38.   if the pauseState = 1 then exit
  39.   window("BLUE_WINDOW").rect = memRect
  40.   gL_MagicWindoz_lok[4] = memRect
  41.   cursor 260
  42. end
  43. ----------------------------------- 
  44.